f <- function() { 

a <- c(1:5)
a[c(5:1)]

}

f()
